Min i Max û funkcje - przyk│ad

W tym przyk│adzie tabela Zam≤wienia jest u┐ywana do znalezienia najni┐szych i najwy┐szych koszt≤w frachtu zam≤wie± wys│anych do Wielkiej Brytanii.

W tym przyk│adzie wywo│ywana jest procedura WyliczPola, kt≤r╣ mo┐na znaleƒµ w przyk│adzie dotycz╣cym instrukcji SELECT.

Sub MinMaxX()

    Dim dbs As Database, rst As Recordset

    ' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a

    ' na rzeczywist╣ bazΩ danych Northwind.

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Zwr≤µ warto£ci najni┐szej i najwy┐szej op│aty

    ' za fracht za zam≤wienia wys│ane do Wielkiej

    Set rst = dbs.OpenRecordset("SELECT " _

        & "Min(Fracht) AS [Najni┐szy fracht], " _

        & "Max(Fracht)AS [Najwy┐szy fracht] " _

        & "FROM Zam≤wienia WHERE KrajOdbiorcy = 'UK';")

    ' Zape│nij obiekt Recordset.

    rst.MoveLast

    ' Wywo│aj procedurΩ WyliczPola w celu

    ' wydrukowania zawarto£ci obiektu Recordset. Przeka┐ obiekt

    ' Recordset i wymagan╣ szeroko£µ pola.

    WyliczPola rst, 12

    dbs.Close

End Sub